home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 10, No. 11 (1989-11)(MindCraft Publishing)(Side A).zip
/
Nibble Volume 10, No. 11 (1989-11)(MindCraft Publishing)(Side A).po
/
MAKE.CARDS.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
640b
|
22 lines
10 REM MAKE.CARDS
20 D$ = CHR$(4): REM CONTROL-D
30 HOME : VTAB 7: PRINT "CREATING CARDS FILE..."
40 PRINT D$;"OPEN CARDS,L17"
50 FOR N = 1 TO 13
60 PRINT D$;"WRITE CARDS,R"N
70 PRINT "RED": PRINT "HEART": PRINT N
80 NEXT
90 FOR N = 14 TO 26
100 PRINT D$;"WRITE CARDS,R"N
110 PRINT "BLACK": PRINT "SPADE": PRINT N -13
120 NEXT
130 FOR N = 27 TO 39
140 PRINT D$;"WRITE CARDS,R"N
150 PRINT "RED": PRINT "DIAMOND": PRINT N -26
160 NEXT
170 FOR N = 40 TO 52
180 PRINT D$;"WRITE CARDS,R"N
190 PRINT "BLACK": PRINT "CLUB": PRINT N -39
200 NEXT
210 PRINT D$;"CLOSE CARDS"
220 HOME : VTAB 7: PRINT "CARDS FILE COMPLETED"